Private Sub cmdSearch_Click()
    frmWebBrowser.brwWebBrowser.Navigate ("http://www.google.com/search?hl=en&source=hp&q=" & txtGoogle.Text & "&aq=f&oq=&aqi=g10")
    Unload Me
End Sub

Private Sub cmdSearch2_Click()
    frmWebBrowser.brwWebBrowser.Navigate ("http://www.bing.com/search?q=" & txtBing.Text & "&form=QBLH&qs=n")
    Unload Me
End Sub

Private Sub cmdSearch3_Click()
    frmWebBrowser.brwWebBrowser.Navigate ("http://search.yahoo.com/search?p=" & txtYahoo.Text & "&fr=yfp-t-501&toggle=1&cop=mss&ei=UTF-8")
    Unload Me
End Sub

Private Sub cmdSearch4_Click()
    frmWebBrowser.brwWebBrowser.Navigate ("http://search.aol.com/aol/search?s_it=comsearch40&query=" & txtYahoo.Text & "&do=Search")
    Unload Me
End Sub

Private Sub cmdSearch5_Click()
    frmWebBrowser.brwWebBrowser.Navigate ("http://www.ask.com/web?q=" & txtYahoo.Text & "&qsrc=0&o=0&l=dir")
    Unload Me
End Sub

Private Sub Form_Load()
    lblTime.Caption = Time
    lblDate.Caption = Date
End Sub

Private Sub Timer1_Timer()
    Timer1.Interval = 1000
    lblTime.Caption = Time
End Sub

Private Sub txtAOL_Click()
    txtAOL.Text = ""
End Sub

Private Sub txtAsk_Click()
    txtAsk.Text = ""
End Sub

Private Sub txtBing_Click()
    txtBing.Text = ""
End Sub

Private Sub txtGoogle_Click()
    txtGoogle.Text = ""
End Sub

Private Sub txtYahoo_Click()
    txtYahoo.Text = ""
End Sub
